home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 75 / 075.d81 / hello connect (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  590b  |  15 lines
  1. 10 poke53272,21:poke648,4:gosub38
  2. 12 sys57812"sid player",8,0:poke780,0:poke781,0:poke782,192:sys65493
  3. 14 sys57812"font",8,0:poke780,0:poke781,0:poke782,100:sys65493
  4. 16 sys57812"music",8,0:poke780,0:poke781,0:poke782,108:sys65493
  5. 30 print"[144]load"chr$(34)"presenter"chr$(34)",8"
  6. 32 print"run"
  7. 36 poke631,13:poke632,13:poke198,2:end
  8. 38 poke53281,0:poke53280,0:x$=chr$(13)+""
  9. 40 a$="[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  10. 42 printchr$(142)"[147][155]"x$"[185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
  11. 44 print"  [192][155][192][192][152][192][192][152]  returning to loadstar...  [146][192][192][155][192][192][192]"x$;
  12. 46 print"[145][151][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
  13. 48 fori=2to10:a$=mid$(a$,5):poke214,24-i:print:printspc(20-len(a$)/2)"[158]"a$""
  14. 50 next:return
  15.